home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg2 / g03.bas < prev    next >
BASIC Source File  |  1991-10-18  |  610b  |  22 lines
  1. 100 ' G03 T.WAKAMATSU
  2. 110 DIM A(730),B(730),C(730),D(730)
  3. 120 CL(1)=4:CL(2)=5:PI=3.14159!:F=2/3*PI
  4. 130 FOR I=0 TO 720 
  5. 140   T=I*PI/180
  6. 150   X0=300*COS(T*2.5!)+320:Y0= 239*SIN(T*1.5!)  +240
  7. 160   X1=239*COS(T*2!+F)+398:Y1=-239*SIN(T*2.5!+F)+240
  8. 170   K=K+1
  9. 180   A(K)=X0:B(K)=Y0:C(K)=X1:D(K)=Y1
  10. 190 NEXT I
  11. 200 L=30:CLS
  12. 210 FOR S=1 TO 2
  13. 220   FOR Z=1 TO K-1
  14. 230     LINE(A(Z),B(Z))-(C(Z),D(Z)),PSET,%CL(S)
  15. 240     IF Z-L<=0 THEN 260
  16. 250     LINE(A(Z-L),B(Z-L))-(C(Z-L),D(Z-L)),PSET,0
  17. 260   NEXT Z
  18. 270   FOR J=K-1-L TO K-1
  19. 280     LINE(A(J),B(J))-(C(J),D(J)),PSET,0
  20. 290   NEXT J
  21. 300 NEXT S
  22.